-- name: nif WList = "" then pass CommandKeyDownelseif there is a window (item 1 of WList) then close window (item 1 of WList)elsedelete item 1 of WListdo the Paramsexit CommandKeyDownend ifend ifelse pass CommandKeyDownend CommandKeyDownglobal WListon KeyDown aKey -- 3 = Enter ; 13 = Returnif WList ¡ "" then pass KeyDownif charToNum(aKey) is in "3 ,(13)" thenset hilite of cd btn "Quitter" to truewait 35set hilite of cd btn "Quitter" to falsesend mouseUp to cd btn "Quitter"else pass KeyDownend KeyDownon mouseDownInPictureclose window param(1)end mouseDownInPicture┼░┼░┼░┼░┼░┼░┼░┼░ Pictoid handlers + ┼░┼░┼░┼░┼░┼░on openPictoid WNameglobal WListput WName & "," before WListend openPictoidon ClosePictoid WNameglobal WListrepeat with i = number of items of WList down to 1if item i of WList = WName thendelete item i of WListexit repeatend ifend repeatend closePictoidon mouseDownInPictoid WNameif WName = "MPadLink Pub" thenclose window Wnameexit mouseDownInPictoidelse global WListset cursor to watchif item 1 of WList ¡ WName thenrepeat with i = 2 to number of items of WListif item i of WList = WName thendelete item i of WListexit repeatend ifend repeatput WName & "," before WListend ifend mouseDownInPictoidfunction dept numbDept,nom,code,clÄreturn numbDept &" - " &nom& "." &return&"Code tÄlÄphonique dÄpartemental : " & code &return┬&return& "NumÄro abonnÄ ê faire prÄcÄder du " & clÄend deptfunction Reg nom,zone,clÄreturn "RÄgion "&nom&return &"Elle sera intÄgrÄe ê la nouvelle zone tÄlÄphonique ╟"┬&zone&"╚." & return & "Faire prÄcÄder les 8 chiffres du "& clÄ &"."end Regon MouseUpInPictoid WName,WId,ShpType,S,clkLoc,same -- S = ShpNbif not same thenbeep 2answer "Erreur 220 volts - Utilisateur inadvertant ou fatiguÄ."&return&"Le curseur a changÄ de zone gÄographique lors du clic."┬& return &"Impossible d'accÄder ê votre requÉte." & return ┬&"Veuillez recommencer."exit MouseUpInPictoidend ifset numberFormat to "00"if S = 0 and WName ¡ "Le trÄsor" then exit MouseUpInPictoidif WName is "RÄgions" thenif S is "1" then answer Reg("Bretagne :","Nord-Ouest","02")if S is "2" then answer Reg("Basse-Normandie :","Nord-Ouest","02")if S is "3" then answer Reg("Haute-Normandie :","Nord-Ouest","02")if S is "4" then answer Reg("Nord-Pas-de Calais :","Nord-Est","03")if S is "5" then answer Reg("Picardie :","Nord-Est","03")if S is "6" then answer Reg("Champagne-Ardennes :","Nord-Est","03")if S is "7" then answer Reg("Lorraine :","Nord-Est","03")if S is "8" then answer Reg("Alsace :","Nord-Est","03")if S is "9" then answer Reg("Ile-de-France :","Ile-de-France","01")if S is "10" then answer Reg("Centre :","Nord-Ouest","02")if S is "11" then answer Reg("Pays de Loire :","Nord-Ouest","02")if S is "12" then answer Reg("Poitou-Charentes :","Sud-Ouest","05")if S is "13" then answer Reg("Limousin :","Sud-Ouest","05")if S is "14" then answer Reg("Auvergne :","Sud-Est","04")if S is "15" then answer Reg("Bourgogne :","Nord-Est","03")if S is "16" then answer Reg("RhÖne-Alpes :","Sud-Est","04")if S is "17" then answer Reg("Franche-ComtÄ :","Nord-Est","03")if S is "18" then answer Reg("Aquitaine :","Sud-Ouest","05")if S is "19" then answer Reg("Midi-PyrÄnÄes :","Sud-Ouest","05")if S is "20" then answer Reg("Languedoc-Roussillon :","Sud-Est","04")if S is "21" then answer Reg("Provence-Alpes-CÖte d'Azur :","Sud-Est","04")if S is "22" then answer Reg("Corse :","Sud-Est","04")if S is "23" then answer "Etes-vous vraiment certain que je suis une rÄgion ?" with "Succeptible" or "avec ìa !!"end ifif WName is "DÄpartements" thenif S is "1" then answer dept(14,Calvados,31,02)if S is "2" then answer dept(70,"Haute-SaÖne",84,03)if S is "3" then answer dept(53,Mayenne,43,02)if S is "4" then answer dept(26,DrÖme,75,04)if S is "5" then answer dept(45,Loire,38,02)if S is "6" then answer dept(18,Cher,48,02)if S is "7" then answer dept(04,"Alpes de Haute-Provence",92,04)if S is "8" then answer dept(12,Aveyron,65,05)if S is "9" then answer dept(86,Vienne,49,05)if S is "10" then answer dept(68,"Haut-Rhin",89,03)if S is "11" then answer "2A - Corse-du-sud."&return&"2B - Haute-Corse."&return ┬&"Code tÄlÄphonique dÄpartemental: 95"&return&return& "NumÄro abonnÄ ê faire prÄcÄder du 04."if S is "12" then answer dept(59,Nord,"20 - 27 ou 28",03)if S is "13" then answer dept(62,"Pas-de-Calais",21,03)if S is "14" then answer dept(80,Somme,22,03)if S is "15" then answer dept(76,"Seine-Martime",35,02)if S is "16" then answer dept(27,Eure,32,02)if S is "17" then answer dept(60,Oise,44,03)if S is "18" then answer dept(02,Aisne,23,03)if S is "19" then answer dept(61,Orne,33,02)if S is "20" then answer dept(28,"Eure-et-Loir",37,02)if S is "21" then answer dept(51,Marne,26,03)if S is "22" then answer dept(55,Meuse,29,03)if S is "23" then answer dept(54,"Meurthe-et-Moselle","8╔",03)if S is "24" then answer dept(67,"Bas-Rhin",88,03)if S is "25" then answer dept(25,Doubs,81,03)if S is "26" then answer dept(35,"Ille-et-Vilaine",99,02)if S is "27" then answer dept(22,"CÖtes-d'Armor",96,02)if S is "28" then answer dept(29,FinistÅre,98,02)if S is "29" then answer dept(56,Morbihan,97,02)if S is "30" then answer dept(72,Sarthe,43,02)if S is "31" then answer dept(41,"Loir-et-Cher",54,02)if S is "32" then answer dept(89,Yonne,86,03)if S is "33" then answer dept(49,"Maine-et-Loire",41,02)if S is "34" then answer dept(37,"Indre-et-Loire",47,02)if S is "35" then answer dept(79,"Deux-SÅvres",49,05)if S is "36" then answer dept(39,Jura,84,03)if S is "37" then answer dept(58,NiÅvre,86,03)if S is "38" then answer dept(03,Allier,70,04)if S is "39" then answer dept(01,Ain,"85 - 7╔ - 79 - 74 ou 50",04)if S is "40" then answer dept(23,Creuse,55,05)if S is "41" then answer dept(16,Charente,45,05)if S is "42" then answer dept(17,"Charente-Maritime",46,05)if S is "43" then answer dept(33,Gironde,"56 - 57",05)if S is "44" then answer dept(24,Dordogne,53,05)if S is "45" then answer dept(47,"Lot-et-Garonne",53,05)if S is "46" then answer dept(19,CorrÅze,55,05)if S is "47" then answer dept(87,"Haute-Vienne",55,05)if S is "48" then answer dept(52,"Haute-Marne",25,03)if S is "49" then answer dept(15,Cantal,71,04)if S is "50" then answer dept(63,"Puy-de-DÖme",73,04)if S is "51" then answer dept(40,Landes,58,05)if S is "52" then answer dept(64,"PyrÄnÄes-Atlantiques",59,05)if S is "53" then answer dept(65,"Hautes-PyrÄnÄes",62,05)if S is "54" then answer dept(06,"Alpes-Maritimes",92,04)if S is "55" then answer dept(43,"Haute-Loire",71,04)if S is "56" then answer dept(32,Gers,62,05)if S is "57" then answer dept(31,"Haute-Garonne","61 - 62",05)if S is "58" then answer dept(81,Tarn,63,05)if S is "59" then answer dept(07,ArdÅche,75,04)if S is "60" then answer dept(38,IsÅre,"7╔ - 74 ou 76",04)if S is "61" then answer dept(48,LozÅre,66,04)if S is "62" then answer dept(30,Gard,66,04)if S is "63" then answer dept(66,"PyrÄnÄes-Orientales",68,04)if S is "64" then answer dept(34,HÄrault,67,04)if S is "65" then answer dept(09,AriÅge,61,05)if S is "66" then answer dept(11,Aude,68,04)if S is "67" then answer dept(13,"Bouches-du-RhÖne","90 - 91 ou 42",04)if S is "68" then answer dept(83,Var,94,04)if S is "69" then answer dept(05,"Hautes-Alpes",92,04)if S is "70" then answer dept(71,"SaÖne-et-Loire",85,03)if S is "71" then answer dept(90,"Territoire de Belfort",84,03)if S is "72" then answer dept(88,Vosges,29,03)if S is "73" then answer dept(21,"CÖte-d'Or",80,03)if S is "74" then showIdFif S is "75" then answer dept(77,"Seine-et-Marne","6╔",01)if S is "76" then answer dept(84,Vaucluse,90,03)if S is "77" then answer dept(46,Lot,65,05)if S is "78" then answer dept(85,VendÄe,51,02)if S is "79" then answer dept(10,Aube,25,03)if S is "80" then answer dept(08,Ardennes,24,03)if S is "81" then answer dept(57,Moselle,"8╔",03)if S is "82" then answer dept(44,"Loire-Atlantique","40 - 51",02)if S is "83" then answer dept(36,Indre,54,02)if S is "84" then answer dept(69,RhÖne,"72 - 74 ou 78",04)if S is "85" then answer dept(74,"Haute-Savoie",50,04)if S is "86" then answer dept(73,Savoie,79,04)if S is "87" then answer dept(82,"Tarn-et-Garonne",63,05)if S is "90" then answer dept(50,Manche,33,02)if S is "91" then answer dept(42,Loire,77,04)if S is "92" then answer "Etes-vous certain que je suis un dÄpartement ???" with "Succeptible" or "avec ìa !!"if S is "93" thenif there is a window "Au Secours !" then close window "Au Secours !"Pictoid "Au Secours !","Aide", "bigwindoidzoom", "m=10"end ifif S is "88" thenrepeat 4Play "2"end repeatanswer "Bien tentÄ... mais le trÄsor n'est pas lê !"repeat 4Play "2"end repeatend ifif S is "89" thenrepeat 4Play "2"end repeatanswer "PersÄvÄrez... en allant voir plus au large !"repeat 4Play "2"end repeatend ifend ifif WName is "Ile-de-France" thenif S is "1" then answer dept(95,"Val-d'Oise","3╔",01)if S is "2" then answer dept(78,Yvelines,"3╔",01)if S is "3" then answer dept(91,Essonne,"6╔",01)if S is "4" then answer dept(93,"Seine-St-Denis","4╔",01)if S is "5" then answer dept(94,"Val-de-Marne","4╔",01)if S is "6" then answer dept(92,"Hauts-de-Seine","4╔",01)if S is "7" then answer dept(75,Paris,"4╔ - 5╔",01)if S is "8" then answer "Etes-vous certain que je suis un dÄpartement ???" with "Succeptible" or "avec ìa !!"end ifif WName is "Outre-Mer" thenif S is "1" then answer "PolynÄsie franìaise."&return&"Code tÄlÄphonique territorial: 689"┬&return&&return& "NumÄro abonnÄ ê faire prÄcÄder du 06 89."if S is "2" then answer "Nouvelle CalÄdonie."&return&"Code tÄlÄphonique territorial: 687"┬&return&&return& "NumÄro abonnÄ ê faire prÄcÄder du 06 87."if S is "3" then answer "97-5 - St-Pierre & Miquelon."&return&"Code tÄlÄphonique territorial: 508"┬&return&&return& "NumÄro abonnÄ ê faire prÄcÄder du 05 08."if S is "4" then answer "97-6 - Mayotte."&return&"Code tÄlÄphonique territorial: 269"┬&return&&return& "NumÄro abonnÄ ê faire prÄcÄder du 02 69."if S is "5" then answer dept("97-1",Guadeloupe,590," 05 90")if S is "6" then answer dept("97-2",Martinique,596," 05 96")if S is "7" then answer dept("97-3","Guyane franìaise",594," 05 94")if S is "8" then answer dept("97-4",RÄunion,262," 02 62")if S is "10" then answer "Wallis & Futuna."&return&"Code tÄlÄphonique territorial: 681"┬&return&&return& "NumÄro abonnÄ ê faire prÄcÄder du 06 81."if S is "9" thenrepeat 6Play "2"end repeatanswer "Bravo ! Le trÄsor est lê, mais il vous faut prendre le bateau ou l'avion pour en prendre possession !" with "J'y cours !!"showLetrÄsorrepeat 6Play "2"end repeatplay "3"end ifend ifif WName is "Le trÄsor" thenplay "3"answer "Passerais tu ta vie ê me chercher par delê les montagnes et les ocÄans que tu ne me trouverais pas."&return& "Je suis le fruit de ton dÄlirium trÄmens." with "Mangaaaaaa"close window "Le trÄsor"play "3"end ifif WName is "DurÄe/Distance" thenif S = 1 then showMoney2end ifend MouseUpInPictoidon showIdFset cursor to watchif there is not a window "Ile-de-France" thenPictoid "Ile-de-France","IdF", "bigwindoidzoom", "m=10"else close window "Ile-de-France"end showIdFon showRegset cursor to watchif there is not a window "RÄgions" thenif videoDepth() = 0 then Pictoid "RÄgions","RC","0,0,300,300","C=false","K=true"else Pictoid "RÄgions","RC", "bigwindoidzoom", "m=10"else close window "RÄgions"end showRegon showDeptset cursor to watchif there is not a window "DÄpartements" thenif videoDepth() = 0 thenPictoid "DÄpartements","DC","0,0,300,300","C=false","K=true"else Pictoid "DÄpartements","DC", "bigwindoidzoom", "m=10"else close window "DÄpartements"end showDepton showDTomset cursor to watchif there is not a window "Outre-mer" thenif videoDepth() = 0 thenPictoid "Outre-mer","Outre-mer","0,0,420,300","C=false","K=true"else Pictoid "Outre-mer","Outre-mer","bigwindoidzoom", "m=10"else close window "Outre-mer"end showDTomon showLetrÄsorif there is not a window "Le trÄsor" thenif the optionKey is down then Pictoid "Le trÄsor","TrÄsor", "bigwindoidzoom"else Pictoid "Le trÄsor","TrÄsor", "Rect","0,-20"else close window "Le trÄsor"end showLetrÄsoron showMoneyset cursor to watchif there is not a window "DurÄe/Distance" thenif videoDepth() = 0 thenPictoid "DurÄe/Distance","DurÄe/Distance","0,-10,512,300","C=false","K=true"else Pictoid "DurÄe/Distance","DurÄe/Distance","bigwindoidzoom"else close window "DurÄe/Distance"end showMoneyon showMoney1set cursor to watchif there is not a window "NumÄros ê surfacturation" thenif videoDepth() = 0 thenPictoid "NumÄros ê surfacturation","Surfacturation","0,-10"else Pictoid "NumÄros ê surfacturation","Surfacturation","bigwindoidzoom"else close window "NumÄros ê surfacturation"end showMoney1on showMoney2set cursor to watchif there is not a window "Modulations horaires" thenif videoDepth() < 4 thenPictoid "Modulations horaires","Avantages horaires NB","0,-10"elsePictoid "Modulations horaires","Avantages horaires","bigwindoidzoom", "m=10"end ifelse close window "Modulations horaires"end showMoney2
-- part 1 (field)
-- low flags: 05
-- high flags: 2007
-- rect: left=15 top=12 right=226 bottom=230
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
play "1"
end mouseUp
-- part 2 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=327 top=206 right=226 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quitter
----- HyperTalk script -----
on mouseUp
answer return &"Voulez-vous vraiment quitter HyperCard ?" with "Non ! Merci" or OK
if it = OK then type "Q" with cmdKey
end mouseUp
-- part 3 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=326 top=177 right=195 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Co₧ts
----- HyperTalk script -----
on mouseup
answer "Que désirez-vous consulter ?" with "N° à surfacturation" or "Durée/Distance" or "Avantages Horaires"
if it is "Durée/Distance" then showMoney
if it is "N° à surfacturation" then showMoney1
if it is "Avantages Horaires" then showMoney2
end mouseup
-- part 5 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=240 top=177 right=195 bottom=318
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ╦ propos
----- HyperTalk script -----
on mouseUp
put "À propos" into theWindow
if videoDepth() ≤2 then put "À proposNB" into theWindow
answer "Ten Digits - Version 1.1 - Novembre 1995."
end mouseUp
-- part 14 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=259 top=145 right=162 bottom=383
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 16
-- part name: Codes
----- HyperTalk script -----
on mouseUp
ask "Entrez les deux premiers chiffres de votre numéro de téléphone " &"(précédé du 1 en Ile-de-France) pour connaître votre futur préfixe et votre zone."
if it ="" or the result Γëá "" then exit mouseUp
repeat with i = number of chars of it down to 1
if char i of it is not a number or char i of it = space then next repeat
put char i of it before request
end repeat
put char 1 to 3 of request into request
if request <10 then
isNoGood
exit mouseUp
end if
if (request>99 and request<130) or request>169 then
isNoGood
exit mouseUp
end if
if (request≥130 and request≤169) then
put char 2 to 3 of request into request
if request is not in "30,34,39,40,41,42,43,44,45,46,47,48,49,53," &"55,60,64,69" then
answer "Les renseignements fournis ne correspondent à aucun code téléphonique " &"en usage en métropole." & return &" * * Pour les numéros spéciaux, urgences… cliquez sur le bouton «Autres».* *" & return & "• Sinon, reformulez votre demande, merci.•" with Annuler or Autres or Recommencer
